home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
Oberon
/
bin2.lha
/
Macros
/
DoRun.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-08-08
|
544b
|
21 lines
/* DoRun - run an Oberon program, with stdio set up */
options results
if ~show('L','rexxsupport.library') then
call addlib('rexxsupport.library',0,-30)
if ~show('L','RexxDosSupport.library') then
call addlib('RexxDosSupport.library',0,-30)
parse arg program screenname
call close 'STDERR'
call open 'STDERR','NIL:','W'
call close 'STDIN'
call close 'STDOUT'
call open 'STDOUT','CON:10/25/540/165/Running.../CLOSE/WAIT/AUTO/SCREEN'||screenname,'RW'
call pragma '*','STDOUT'
call pragma 'Stack', 10000
address command program '>* <*'